home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1987 January & February
/
rerun-1987-01-02.d64
/
notepad 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
26 lines
117 rem
118 rem 64 notepad patch #2
119 rem print notepad <f3>
120 rem full screen dump <f5>
121 rem
122 print"wait...":mem=50448:a=50704:fori=0to185:read by
123 if by >255 then print"error in line:"peek(63)+peek(64)*256:end
124 poke mem+i,by:ct=ct+by:next
125 if ct <> 23649 then print"checksum bad, check all data.":end
126 poke a,76:poke a+1,16:poke a+2,197
127 rem
128 data 32,11,202,169,54,133,1,165,197,201,5,208,8,162
129 data 64,160,5,169,17,208,19,201,6,208,18,162,0,160
130 data 4,169,8,32,66,197,162,64,160,177,169,17,32,66
131 data 197,234,234,234,234,76,71,200,234,134,170,132,171,141
132 data 201,197,169,4,32,195,255,160,255,173,24,208,201,21
133 data 240,2,160,7,169,4,170,32,186,255,169,0,32,189
134 data 255,32,192,255,176,43,162,4,32,201,255,176,36,160
135 data 0,177,170,170,32,158,197,200,192,40,208,245,169,13
136 data 32,210,255,160,0,165,170,24,105,40,133,170,144,2
137 data 230,171,206,201,197,208,222,32,204,255,169,4,32,195
138 data 255,96,192,0,208,15,169,16,32,210,255,169,50,32
139 data 210,255,169,48,32,210,255,138,41,127,201,32,144,9
140 data 201,64,144,9,201,96,144,3,24,105,32,105,32,32
141 data 210,255,96,0